home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / egcg1 / g23.bas < prev    next >
BASIC Source File  |  1991-10-18  |  2KB  |  61 lines
  1. 100 ' G23 T.WAKAMATSU
  2. 110 CLS:PI=3.14159!
  3. 120 FOR Q=0 TO 60
  4. 130   FOR I=Q TO 360+Q STEP 60
  5. 140     T=I/180*PI:U=(I+10)/180*PI
  6. 150     Z=COS(T*6*60)*100+140
  7. 160     S=SIN(T*6+60)*100+140
  8. 170     X=S*COS(U)+320:Y=S*SIN(U)+235
  9. 180     Y1=Z*SIN(T)+240:X1=Z*COS(T)+320
  10. 190     LINE(X,Y)-(X1,Y1),PSET,4
  11. 200   NEXT I
  12. 210 NEXT Q
  13. 220 FOR Q=0 TO 60
  14. 230   FOR I=Q+.5! TO Q+359.5! STEP 60
  15. 240     T=I/180*PI:U=(I+10)/180*PI
  16. 250     Z=COS(T*6*60)*100+140
  17. 260     S=SIN(T*6+60)*100+140
  18. 270     X=S*COS(U)+320:Y=S*SIN(U)+235
  19. 280     Y1=Z*SIN(T)+240:X1=Z*COS(T)+320
  20. 290     LINE(X,Y)-(X1,Y1),PSET,6
  21. 300   NEXT I
  22. 310 NEXT Q
  23. 320 FOR Q=0 TO 60
  24. 330   FOR I=Q TO 360+Q STEP 60
  25. 340     T=I/180*PI:U=(I+10)/180*PI
  26. 350     Z=COS(T*6*60)*100+140
  27. 360     S=SIN(T*6+60)*100+140
  28. 370     X=S*COS(U)+320:Y=S*SIN(U)+235
  29. 380     Y1=Z*SIN(T)+240:X1=Z*COS(T)+320
  30. 390     LINE(X,Y)-(X1,Y1),PSET,5
  31. 400   NEXT I
  32. 410 NEXT Q
  33. 420 FOR I=.5! TO 359.5! 
  34. 430   T=I/180*PI:U=(I+10)/180*PI
  35. 440   Z=COS(T*6*60)*100+140
  36. 450   S=SIN(T*6+60)*100+140
  37. 460   X=S*COS(U)+320:Y=S*SIN(U)+235
  38. 470   Y1=Z*SIN(T)+240:X1=Z*COS(T)+320
  39. 480   LINE(X,Y)-(X1,Y1),PSET,3
  40. 490 NEXT I
  41. 500 FOR Q=0 TO 60
  42. 510   FOR I=Q TO 360+Q STEP 60
  43. 520     T=I/180*PI:U=(I+10)/180*PI
  44. 530     Z=COS(T*6*60)*100+140
  45. 540     S=SIN(T*6+60)*100+140
  46. 550     X=S*COS(U)+320:Y=S*SIN(U)+235
  47. 560     Y1=Z*SIN(T)+240:X1=Z*COS(T)+320
  48. 570     LINE(X,Y)-(X1,Y1),PSET,0
  49. 580   NEXT I
  50. 590 NEXT Q
  51. 600 FOR Q=0 TO 60
  52. 610   FOR I=Q+.5! TO Q+359.5! STEP 60
  53. 620     T=I/180*PI:U=(I+10)/180*PI
  54. 630     Z=COS(T*6*60)*100+140
  55. 640     S=SIN(T*6+60)*100+140
  56. 650     X=S*COS(U)+320:Y=S*SIN(U)+235
  57. 660     Y1=Z*SIN(T)+240:X1=Z*COS(T)+320
  58. 670     LINE(X,Y)-(X1,Y1),PSET,0
  59. 680   NEXT I
  60. 690 NEXT Q
  61.